home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ RAM Settings.xpl < prev    next >
Text File  |  2002-06-20  |  2KB  |  64 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="6"
  3. "COUNT"="2"
  4. "UIPATH"="System\Memory"
  5. "NAME"="General Memory Settings"
  6. "VERSION"="1.45"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Unload DLLs directly"
  9. "TEXT 2"="Reserve more memory for DOS programs (Win 9x ONLY!)"
  10. "DESCRIPTION 1"="Normally, Windows waits a short time before DLLs are removed from memory. If you activate this option, Windows removes them directly without waiting."
  11. "DESCRIPTION 2"="NOTE: some programs (like ActiveDesktop, Access or some Windows 2000 Network providers) will *CRASH* if you activate it!"
  12. "DESCRIPTION 3"="Enable "Reserve more memory for DOS programs" if you are still using DOS-based programs and you think they can need some more memory. This is achived by using the HIGH memory block normally unused in DOS."
  13. "AUTHOR"="Xteq Systems"
  14. "CONTACTURL"="http://www.xteq.com"
  15. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  16. "COMMENT 1"="Thanks to uy [mailto:dr_teeth@bigfoot.com] for the "value != 1" bug fix!"
  17. "COMMENT 2"="Thanks to Tomas <tomas@default.cz> for the final UNLOAD DLLS DIRECTLY fix!"
  18.  
  19.  
  20. Sub Plugin_Initialize 
  21.  'AllwayUnloadDLLs! former a path but I think this is the correct version
  22.  'Let's say: I HOPE SO!
  23.  'new: it seems that the first version was correct :-/
  24.  s=RegReadValue("HKLM\Software\Microsoft\Windows\CurrentVersion\Explorer\AlwaysUnloadDLL\@")
  25.  if s="1" then SetUIElement 1,true
  26.  
  27.  i=IniReadValue("system.ini","386Enh","LocalLoadHigh")
  28.  if i=1 then SetUIElement 2,true
  29. End Sub
  30.  
  31.  
  32. Sub Plugin_CheckData(ElementIndex)
  33. End Sub
  34.  
  35.  
  36.  
  37. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  38.  b=GetUIElement(1)
  39.  if b=true then
  40.   Call RegWriteValue("HKLM\Software\Microsoft\Windows\CurrentVersion\Explorer\AlwaysUnloadDLL\@","1",1)
  41.  else
  42.   if RegPathExists("HKLM\Software\Microsoft\Windows\CurrentVersion\Explorer\AlwaysUnloadDLL") then
  43.      Call RegDeletePath("HKLM\Software\Microsoft\Windows\CurrentVersion\Explorer\AlwaysUnloadDLL")
  44.   end if
  45.  end if
  46.  
  47.  
  48.  b=GetUIElement(2)
  49.  if b=true then
  50.   Call IniWriteValue("system.ini","386Enh","LocalLoadHigh",1)
  51.  else
  52.   Call IniWriteValue("system.ini","386Enh","LocalLoadHigh",0)
  53.  end if
  54.  
  55.  Restart
  56. End Sub
  57.  
  58.  
  59. Sub Plugin_Terminate 
  60. End Sub
  61.  
  62.  
  63.  
  64.